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I.  INTRODUCTION 


This  report  describes  a  dynamic  storage  allocation  system  for  the 
BRLESC  II  computer.  Dynamic  storage  allocation  is  the  automatic  assign¬ 
ment  and  release  of  storage  during  execution.  It  differs  from  conven¬ 
tional  programming  by  eliminating  the  necessity  of  requiring  storage 
of  many  seldom-used  arrays.  Dynamic  storage  allows  the  programmer  to 
make  more  efficient  use  of  available  storage,  even  to  the  extent  of 
reducing  the  requirements  for  chain  or  overlay  jobs. 


The  system  comprised  of  over  forty  FORTRAN  subroutines  called  by  a 
user  programmer  is  fashioned  after  the  dynamic  storage  scheme  used  in 
SIMSCRIPT  (a  simulation  language) .  Some  of  the  SIMSCRIPT  function 
names  being  quite  descriptive  "have  been  carried  over  into  this  system. 


The  major  system  features  provide  for  automatic  data  overflow  onto 
peripheral  storage,  linked  list  capability,  and  garbage  collection. 


Automatic  overflow  is  from  high  speed  memory  to  the  disc,  which 
appears  to  the  user  as  an  extension  of  high  speed  memory.  No  special 
programming  is  required  to  make  use  of  it,  although  the  programmer  has 
the  option  to  write  data  onto  the  disc  if  he  so  desires. 


A  linked  list  is  one  such  that  some  of  its  elements  are  themselves 
lists.  Lists  are  composed  of  datasets  (storage  cells  containing 
related  information),  which  are  the  basic  information  unit  of  the  system. 
A  dataset  may  itself  become  a  list  or  several  linked  together  to  form  a 
list.  Datasets  in  use  are  located  in  core  storage,  those  not  in  use, 
are  transferable  to  the  disc.  The  system  automatically  transfers  unused 
datasets  to  the  disc  when  their  space  is  required  by  other  datasets. 

The  system  does  allow  the  user  to  lock  a  dataset  in  core  storage  so  that 
it  may  not  be  transferred  to  the  disc;  however,  this  feature  should  be 
used  with  descretion  or  an  early  termination  could  occur.  There  is  no 
limit  as  to  the  number  of  datasets  which  may  be  created,  or  to  the 
number  of  lists  to  which  a  dataset  may  belong.  The  system  does  not 
however  determine  to  which  lists  a  dataset  belongs.  Because  of  this,  it 
is  the  users  responsibility  to  insure  that  a  dataset  belongs  to  no  lists 
when  a  dataset  release  request  is  m; 


ade. 


Datasets  may  be  any  length  and  need  not  belong  to  a  list  (if  they 
provide  temporary  storage  for  intermediate  calculations) .  The  system 
allows  a  dataset  to  be  placed  anywhere  within  a  list  or  placed  in  order 
according  to  a  specified  sort  word  in  the  dataset.  List  searching 
routines  exist  to  locate  particular  datasets  in  the  list.  Lists  may  be 
searched  from  top  to  bottom  or  bottom  to  top.  More  rapid  access  to 


uataocio  appeal  lug  v/n 

Section  III.  C,  16  = 


in  also  available  and  will  be  described  in 


Garbage  collection  is  the  process  by  which  storage  may  be  reclaimed 
for  a  newly  created  dataset  by  sweeping  through  memory  identifying  only 
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those  structures  currently  referenced  by  the  program.  This  occurs  only 
after  all  free  storage  has  been  depleted.  Garbage  collection  is  time 
consuming  but  frees  the  programmer  from  performing  detailed  bookkeeping 
which  would  otherwise  be  necessary. 

The  Dynamic  Storage  Allocation  System  resides  on  the  BRL  DISC  and 
may  be  accessed  through  the  *COMPILE  card  as  follows: 

* COMPILE  DISC,  DAS,  ALL 

Dynamic  storage  systems  have  been  written  for  many  computers,  how¬ 
ever,  this  particular  system  is  easily  tranferable  to  computers  whose 
computer  word  length  is  at  least  60  bits  (i.e.  CDC  computers). 

Dynamic  storage  allocation  has  found  widespread  use  in  time  and 
event  based  simulation  programs  although  the  latter  usage  is  more 
frequent.  Proposed  uses  of  dynamic  storage  include  large  problems  with 
fixed  databases  having  infrequently  used  subsets.  Serial  or  linear 
data  processing  may  render  greater  efficiency  to  dynamic  storage, 
although  careful  thought  is  required  in  any  large  database  program. 
Dynamic  storage  is  applicable  for  any  queuing  problem. 


II.  SYSTEM  DESCRIPTION 

A.  Storage  Allocation 

The  user  may  designate  available  storage  to  occupy  from  one  to  ten 
storage  units.  The  first  of  these  is  assumed  to  be  core  storage.  The 
user  must  specify  the  length  available  to  the  system.  Excluding  user 
code,  the  system  including  the  disc  routines  require  10,000  words. 
Currently,  the  system  uses  only  one  other  unit  besides  core  storage,  the 
disc.  Approximately  600,000  words  are  available  to  the  user  without 
special  handling. 

The  system  sets  up  storage  requested  on  each  unit  as  a  free  block 
and  links  the  blocks  together  to  form  a  free  list.  When  a  block  is 
requested,  the  free  list  is  searched  until  a  free  block  of  adequate  size 
if  found.  The  necessary  storage  is  then  allocated  from  the  lower  portion 
of  this  block,  and  the  remainder  made  into  a  smaller  free  block.  When 
storage  is  returned  to  the  system,  it  is  added  to  an  adjacent  free  block, 
or  if  this  is  not  possible,  it  is  added  to  the  free  list  as  a  separate 
block. 

When  a  request  is  made  for  a  block  larger  than  any  free  block,  a 
garbage  collection  is  initiated  in  an  attempt  to  relocate  datasets  within 
memory  so  that  all  free  blocks  are  brought  together  to  form  one  free 
block.  If  this  procedure  does  not  produce  enough  storage  for  the 
requested  block,  a  search  is  made  for  a  block  which  can  be  moved  to  the 
disc.  Movable  datasets  are  written  onto  the  disc  and  their  space  made 
available  to  the  free  list.  If  space  still  cannot  be  found,  a  message 
is  written  and  execution  terminated.  Garbage  collection  only  occurs 
for  core  storage. 
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B,  Lock  Numbers  for  Datasets 


The  system  determines  whether  a  dataset  is  movable  or  not  by 
examining  the  lock  number  of  the  dataset.  Lock  numbers  range  from 
0  to  7.  Lock  numbers  from  0  through  5  are  assigned  by  the  user  to 
datasets  he  creates. 


MIIMRED 


i  iui*l  UU1\ 


0 

1 


2-4 


5 


MEANING 

Unlocked.  May  be  moved  to  provide  room  for  a  newly 
requested  dataset. 

Locked  and  currently  in  use.  Will  not  be  moved  until 
it  is  no  longer  in  use. 


Locked.  Will  not  be  moved  for  any  reason.  User  may 


set  these  levels  for  his  own  purposes* 
does  not  distinguish  between  levels  2-4, 


evet  *iYTI 
j y  jcv/iii 


Locked  and  indestructible.  It  will  not  be  moved  or 
released  to  the  system. 


6  Free. 


7  Special  system  designated  datasets  for  storage  of 

one-word  system  parameters. 


C.  Lists 


A  list  is  a  set  of  logically  associated  datasets  connected  by 
means  of  system-created  link  words.  Lists  are  used  as  a  means  to  quickly 
locate  datasets  sharing  common  attributes.  A  dataset  may  belong  to  any 
number  of  lists. 

1.  List  Header  Variable 

A  list  header  variable  is  one  word  stored  within  a  dataset, 
locally,  or  in  user  common.  This  variable  allows  the  user  to  refer 
to  the  list.  It  must  be  defined.  The  contents  of  this  variable  point 
to  the  first  and  last  link  words  in  the  list. 


z. 


The  link  word  contains  the  address  of  the  next  link  word 
of  the  list  (or  zero  if  the  link  is  the  last  dataset  of  the  list)  , 
the  address  of  the  previous  link  word  of  the  list  (or  zero  if  the 
link  is  the  first  dataset  of  the  list3 ,  and  the  address  of  the  dataset 
pointer  (DSP  word) .  One  such  word  exists  for  each  dataset  in  the  list. 
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3,  Dataset  Pointer  (DSP  word) . 


The  DSP  word  contains  the  current  address  of  the  dataset  and 
the  number  of  words  in  the  dataset.  One  such  word  exists  for  each  data¬ 
set. 


III.  SYSTEM  UTILIZATION 


A.  Initialization 


1.  Common  Variables,  The  user  must  define  certain  necessary  system 
variables  in  blank  common  and  assign  values  to  these  variables.  To  see 
the  necessary  dimension,  equivalence,  and  integer  statements  as  well  as 
the  common  definition,  refer  to  the  sample  program  given  in  Section 
III.H.  The  following  system  variables  must  be  assigned  initial  values 
by  the  user*s  program. 


DMARFA 


X'  “  *■ 


QWAREA 


The  numbers  of  storage  units  to  be 
the  system.  The  value  to  use  here  is  2 
indicating  core  storage  and  the  disc. 


The  size  in  words  of  the  ith  storage  unit 
(i.e.  core  storage  =  5000,  disc  storage  = 
50,000).  QWAREA  is  a  one  dimensional  integer 
array  of  ten  elements.  At  BRL,  only  words  1 
and  2  of  this  array  need  be  set.  Word  1 
is  for  core  storage,  and  word  2  for  the  disc. 


QDSIZE  A  one  dimensional  integer  array  specifying  the 
incremental  size  of  datasets.  This  array 
consists  of  10  elements.  At  least  one 
specification  must  be  made  (it  may  be  zero). 

For  example:  QDSIZE (1)  =  5 
QDSIZE  (2)  =  10 
QDSIZE (3)  =  0 

The  above  statement  indicates  that  no 
dataset  will  be  smaller  than  5  words; 
datasets  with  requested  sizes  from  1-4 
words  will  automatically  be  allocated 
5  words  (one  location  is  required  by  the 
system  as  a  zeroth  word).  Dataset  requests 
of  lengths  5-9  will  be  allocated  10  words, 
gt c.  Values  must  be  assigned  in  ascending 
order.  When  a  value  of  zero  is  assigned, 
this  implies  that  the  exact  number  of  words 
required  will  be  allocated.  In  the  above 
example  any  dataset  request  for  10  or  more 
words  will  be  allocated  the  exact  number 
of  words  necessary. 
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QERLUN 


The  logical  variable  containing  the  unit  number 
of  the  device  to  be  used  to  print  system  error 
messages.  At  BRL,  QERLUN  should  be  set  to  6. 


2.  Subroutine  QINITL  After  blank  common  has  been  set,  the 
user  must  call  QINITL  to  initialize  other  system  variables  and  to  set 

ijn  the  free  list. 


B*  Dataset  Creation  and  Release 


Three  subroutines  exist  for  the  creation  of  datasets,  and  one  for 
the  release  of  datasets.  The  first  three  routines  discussed  below 


.  1  ~  . - -4--U 


the  contents  of  the  dataset  created  to  zeros. 


1.  Subroutine  CREATE 


CREATE  (N,  INDEX)  where 
N  =  integer  expression 
INDEX  =  integer  variable  name 


Thi 


C  c  /-*  r 
pd 


al  loc ated  depends  upon  the  values  assigned  to  the  QDSIZE  aTTay)*  The 
dataset  INDEX  (pointer  to  the  first  word  of  the  dataset)  is  returned 
as  the  value  of  the  second  argument.  CREATE  sets  the  lock  value  of 
the  dataset  to  zero  (unlocked)  and  creates  a  DSP  word,  indicating  that 
the  dataset  will  be  part  of  a  list. 


2.  Subroutine  CREATL 


GREAT L  (N,  INDEX) 

CREATL  performs  the  same  functions  as  the  subroutine  CREATE  except 
that  the  lock  number  is  set  to  1  (locked).  The  definitions  of  N  and 
INDEX  are  the  same  as  for  subroutine  CREATE. 


3.  Subroutine  CREATX 


C  RE  ATX  (N.  INDEX) 


CREATX  creates  a  dataset  of  length  N+l  (regardless  of  the  limits 
specified  by  the  QDSIZE  array)  and  sets  the  lock  value  to  1.  No  DSP 
word  is  created,  indicating  that  the  dataset  is  not  part  of  any  list; 
i.e.  the  dataset  is  intended  for  use  as  a  temporary  storage  area.  The 


4.  Subroutine  DSTROY 


DSTROY  (INDEX) 


This  subroutine  returns  the  space  allocated  to  the  dataset  whose 
INDEX  is  the  argument  specified.  This  subroutine  does  not  modify  any 
list  linkages  to  which  this  dataset  may  be  a  part.  The  user  must  do 
thi  Q  wi  th  54  ral  1  RFMOVF  ( coo  Qor'f  i  An  TIT  P  1  ^  ^ 

*•***  **  11  v*  *  i*  v*  i*  J.  U  i.  *  ivy  V  ^  J  vy  V  Vy  V  i  v  1  i  lilt  ■  X  xJ  •  J  a 


C.  List  Manipulation 


These  subroutines  allow  the  user  to  create,  modify,  or  destroy 
lists. 


1  O  .  ,t_ _ . _ ,  j_  *  __  _  m 

j..  ouufouune  rut  me 

PUTTOP  (LIST,  INDEX)  where 

LIST  =  variable  name 

INDEX  =  integer  variable  name. 


This  subroutine  places  the  dataset  INDEX  (supplied  by  CREATE, 
CREATE  or  CREATX)  as  the  first  dataset  of  the  list  indicated  by  the 
list  header  variable  LIST.  The  list  header  variable  may  be  thought 


of  as  a  list  name;  it  contains  the  addresses  of  the  first  and  last 
link  words  in  the  list.  If  the  list  already  contains  datasets,  the 
dataset  will  be  inserted  as  the  first  dataset  and  list  linkages  will 
be  changed  wherever  necessary  to  reflect  this  modification. 


2.  Subroutine  PUTBOT 


PUTBOT  (LIST,  INDEX) 


PUTBOT  functions  in  the  same  manner  as  PUTTOP  except  that  the 
named  dataset  is  inserted  as  the  last  dataset  in  the  list. 


3.  Subroutine  PUTORA 


PUTORA  (LIST,  INDEX,  N)  where 
LIST  =  variable  name 
INDEX  =  integer  variable  name 
N  =  integer  expression 


PUTORA  inserts  dataset  INDEX  into  list  LIST  according  to  the 
value  of  the  work  N  within  the  dataset.  The  dataset  will  be  inserted 
such  that  it  follows  the  dataset,  if  any,  which  has  a  lesser  value 
in  its  Nth  word  position,  and  precedes  the  dataset,  if  any,  which 
has  a  greater  value  in  its  Nth  word  position.  In  other  words,  PUTORA 
creates  a  list  sorted  in  ascending  order  according  to  some  word  within 
The  value  of  the  word  must  be  a  real  value. 
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4.  Subroutine  PUTOIA 


PUTOIA  (LIST,  INDEX,  N) 

PUTOIA  functions  in  the  same  manner  as  PUTORA  except  that  the  value 
in  the  Nth  word  position  is  an  integer  value. 

5.  Subroutine  PUTORD 


niiTAnn  r r  tot1  TMnCV  \! A 

rUiUIUJ  tLjLoi,  XiNUXiA,  IN  J 


PUTORD  functions  in  the  same  manner  as  PUTORA  except  that  the 
dataset  INDEX  is  inserted  such  that  the  values  in  the  Nth  word  position 
are  in  descending  order.  The  value  in  the  Nth  word  position  is  a  real 
value. 


6.  Subroutine  PUTOID 
PUTOID  (LIST,  INDEX,  N) 

PUTOID  functions  in  the  same  manner  as  PUTORD  except  that  the 
value  in  the  Nth  word  position  is  an  integer  value. 

7.  Subroutine  PUT AFT 


PUTAFT  (LIST,  LINK,  INDEX  1,  INDEX  2)  where 

LIST  =  variable  name 

LINK  =  variable  name 

INDEX  1  =  integer  variable  name 

INDEX  2  =  integer  variable  name 


PUTAFT  allows  the  user  to  insert  dataset  INDEX  2  into  the  list 

I  T  CT  O  p  -v»  ^  A  /i  4  V»ir  TMHC  V  1  Th  a  1  -i  r»lr  v»  Y»  n  m  rt4-  A  "V*  T  T  \TV 

uxui  Oiici  aoiasci  SjJCLiliCU  \jy  ilNUDA  x  •  lilc  1  a  TIK  pai  unm 

contains  the  contents  of  the  link  word  for  the  dataset  specified  by 
INDEX  1 , 


8.  Subroutine  PUTBEF 


PUTBEF  (LIST,  LINK,  INDEX  1,  INDEX  2) 


PUTBEF  fun  rf  i  on  ^  cimi  1  arl  V  t  a  DT  IT  APT  o  vr*  ar\f 

*  «  *  "*-<»  W  AWIlO  OilllJ.  X  Wi  J .J  V-V/  A  UiiU  A  Vp  V.  V-l  IIA  UUV.UJC  V, 

specified  by  INDEX  2  is  placed  before  the  dataset  specified  by  INDEX  1, 


9.  Subroutine  NEXT 


NEXT  (LINK,  INDEX)  where 

LINK  =  variable  name 

INDEX  =  integer  variable  name 
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NEXT  allows  the  user  to  search  forward  through  a  list.  The  link 
parameter  LINK  must  initially  be  set  to  the  value  of  the  list  header 
variable.  After  NEXT  has  been  executed,  the  link  variable  contains 
the  contents  of  the  current  link  word.  The  variable  INDEX  is  returned 
as  the  index  of  the  next  dataset  in  the  list  or  zero  if  no  further 


uaca^ecs  axe  uu  cue  iibL. 


P,  ~  ~  1  KTC  VT  4  ~  ~  ^  ^11^.,,,, 

i/piLcu  ud  e  ui  nLAi  ib  as  luuuwb, 


KLINK  =  KFILE 

10  CALL  NEXT  (KLINK,  INDX) 

t  r?  f  TXirw  r?r»  ri'v  r*r\  rrr\  on 

i r  UNL/A •  vj  vju  iu 

(OPERATIONS  ON  DATASET  INDX) 
GO  TO  10 


20  CONTINUE 


NEXT  also  sets  and  resets  lock  numbers  of  datasets.  If  the 

lock  number  of  the  current  dataset  is  0,  it  is  reset  to  1  to  indicate 

that-  thp  data<;pt  i  <:  currently  in  nsp  Thf>  1  nrk  vnlnp  n-F  the  nrevinns 

dataset  is  set  to  0  if  it  was  1,  indicating  that  the  dataset  is  no 

longer  in  use.  Datasets  with  lock  numbers  greater  than  1  are  not  set 
and  reset  but  remain  locked  throughout  the  execution  of  the  subroutine. 

The  set-reset  feature  is  provided  so  that  there  is  no  possibility 
that  a  dataset  will  be  moved  if  the  loop  performing  the  search  contains 
another  list-searching  loop,  or  contains  routines  calling  for  the 
creation  of  new  datasets. 


10.  Subroutine  NEXTNL 


NEXTNL  (LINK,  INDEX) 


IIlcUlllCX 


InrV  va  Iiipc  am  n r»+-  cpt 


*  rl  rpcpf 


ai>  ncAi  CAcepi  cuac  cue 


11.  Subroutine  PREV 


PREV  (LINK,  INDEX) 


r'KE'v  functions  ill  the  same  manner  as  NEXT  except  that  the  list 
is  searched  backward  beginning  with  the  last  dataset  in  the  list. 

12.  Subroutine  PREVNL 

PREVNL  (LINK,  INDEX) 

PREVNL  functions  in  the  same  manner  as  PREV  except  that  lock 
values  are  not  set  and  reset. 
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13o  Subroutine  REMOVE 


REMOVE  (LIST,  LINK,  INDEX) 

the  dataset  INDEX  from  list  LIST,  The  link  parameter 
LINK  is  the  link  word  as  returned  by  NEXT,  NEXTNL,  PREV,  OR  PREVNL. 

After  removing  the  dataset,  REMOVE  replaces  the  value  of  the  link  parameter 
with  the  previous  link  word  so  that  a  NEXT  or  NEXTNL  loop  may  be  con¬ 
tinued.  If  the  link  value  is  not  available  to  the  user  at  the  time  he 
wishes  to  remove  a  dataset  from  a  list,  the  value  of  0  may  be  used  as  a 
link  parameter.  In  this  instance,  the  link  parameter  will  not  be  updated. 


Subroutine  REMOVP 


RE MO VP  (LIST,  LINK, INDEX) 


REMOVP  functions  in  the  same  manner  as  REMOVE  except  that,  for 
LINKj^O,  the  next  link  toward  the  bottom  of  the  list  is  returned  as  the 
value  of  the  link  parameter  (for  continuation  of  a  PREV  or  PREVNL  loop). 

i  r  .  -t_  *,1 tiT  T  r>r\T  ft1 

id.  ouuruuiiiit;  rvlruui 


W I POUT  (LIST,  KDSTRY)  where 
LIST  =  variable  name 
KDSTRY  =  integer  expression 

WIPOUT  removes  all  datasets  from  the  list  LIST  (list  header 
variable).  If  the  value  of  KDSTRY  is  one,  the  datasets  will  be 
destroyed  as  well  as  removed  from  the  list. 

16.  Subroutines  DSPWRD  and  INDWRD 


These  routines  provide  access  to  a  dataset  more  rapidly  than 
using  a  sequential  search.  It  involves  storing  DSP  word  addresses  of 
those  datasets  for  which  quick  access  is  desired. 


r'.Pr'*-rr'  n  /"  Tilrvy  \r 

UbPrYKL/  (ilNUCA, 

TMPrv  — •  4 

1 1ND  C  A  -  XIILCgCA 


t  no  T'w.rrN  *\  i 

lUDPvVDj  wnere 
v ari  3-b  1 0  n  ame 


IDSPWD  =  variable  name 


DSPWRD  returns  the  location  of  the  DSP  word  for  dataset  INDEX  in 
the  variable  specified  by  IDSPWD.  A  DSP  word  for  a  dataset  resides 
in  the  same  memory  location  throughout  the  existence  of  a  dataset.  By 
storing  the  location  of  the  DSP  word  for  the  dataset  at  the  time  it  is 
created,  the  current  index  of  the  dataset  may  be  retrieved  as  follows: 
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INDWRD  (IDSPWD, INDEX) 


INDWRD  returns  the  current  index  INDEX  of  the  dataset  whose  DPS 
word  address  is  stored  in  IDSPWD.  If  the  dataset  is  currently  located 
on  the  disc,  it  is  loaded  into  core  storage  and  the  index  then  returned. 


Lock  Numb or  Manipulation 

1 .  Subroutine  LOCKDS 

LOCKDS  (INDEX,  LOCKNR)  where 
INDEX  =  integer  variable  name 
LOCKNR  =  integer  expression 


sets  the  lock  number  of  dataset 


to  tne  vaiue 


cr\or>  -i 

*>Y 


+  -,c>A  kv  TOTJCMR 

y-j  j  uvuutiiv  j 


i  n  ■t  A  Pro  -y» 

LI1  T 


1  1  1  a  v  C 
v  a-  iul _  « 


2.  Subroutine  NLOKDS 


NLOKDS  (INDEX) 

NLOKDS  unlocks  dataset  INDEX. 


3.  Subroutine  LOCKFL 

LOCKFL  (LIST,  LOCKNR) 


LOCKFL  sets  the  lock  number  for  each  dataset  in  list  LIST  (list 
header  variable)  to  the  value  specified  by  LOCKNR  (<5). 


4.  Subroutine  NLOKFL 


\M  nVCI  f t  TOT1  1  f'V'l'MD'X 
L\  LiUJvhij  L.VJOMNKJ 

NLOKFL  unlocks  all  datasets  in  the  list  LIST  (list  header  variable) 
which  have  a  lock  number  less  than  or  equal  to  the  value  of  LOCKNR 
(an  integer  <5) . 


E.  Accessing  Data  Within  Datasets 


The  last  variable  in  blank  common  is  the  one-dimensional,  one 


o  1  omon  +■  qrrov  O 

vxviiiwii  i  ui  i  u)  y » 


Tkn  ■ 


i.ir\  vH  -i  c 
n  UJ.U  x  . 


i  •v**'  +  r .  r  PA  -v»  rl  A  ^  4"  Vr  a  a  a 

xxxoc  nuxu  w 


f  the  core  storage  area 


requested  by  the  user;  the  rest  of  the  area  follows  in  contiguous 
locations.  Because  the  compiler  does  not  check  for  subscript  references 
larger  than  those  defined,  Q  allows  the  user  to  refer  to  any  word  within 
a  dataset.  The  dataset  index  refers  to  the  position  of  the  first  word 
of  the  dataset  within  the  array  Q.  To  refer  to  the  first  word  of  data 
within  a  dataset  specify: 


Q  (INDEX) 


To  refer  to  the  Nth  word,  specify 

n  CTMnrv  _  umI 

^  li'jlJL.  A  A  «  il  J  w 


To  allow  reference  to  real  and  integer  values  as  well  as  using 
two  subscripts  rather  than  one,  the  IQ(1),  QQ(1,1),  and  IQQ(1,1) 
variables  are  all  made  equivalent  to  the  variable  Q(l).  To  use  the 
two  dimensional  forms  specify  the  index  as  the  first  subscript  and  the 
position  of  the  particular  word  within  the  dataset  as  the  second  sub¬ 
script.  For  example,  to  refer  to  the  5tn  word  of  the  dataset  whose 
index  is  INDX  specify: 

QQ  (INDX, 5). 


In  the  interest  of  program  readability  another  method  of  referring 
to  dataset  values  is  available.  This  is  accomplished  by  the  user 
equivalencing  variables  to  the  Q  array.  The  equivalence  block  must 
appear  in  all  routines  which  refer  to  the  dataset.  It  will  be  noted 
that  one  dimension  is  added  to  each  variable  to  account  for  the  dataset 
index.  This  limits  those  variables  which  can  be  referred  to  through 
equivalent  forms  to  two-dimensional  variables. 


F.  Dataset  Manipulations 
1.  Subroutines  DSLNTH 
DSLNTH  (INDEX,  LENTH) 

DSLNTH  returns  the  length  LENTH  of  dataset  INDEX.  LENTH  does  not 
include  the  zeroth  word. 


Subroutine  DSXPND 


DSXPND  (INDEX,  NULNTH) 


DSXPND  expands  dataset  INDEX  to  accommodate  NULNTH  +  1  words. 

If  free  storage  exists  below  the  dataset,  it  is  given  to  the  dataset. 

If  not,  a  new  block  is  created  and  the  data  transmitted  to  it.  The 
old  dataset  is  destroyed,  but  its  DSP  word  is  kept  for  the  new  dataset. 


3.  Subroutine  PUTDRM 


PUTDRM  (INDEX) 

PUTDRM  writes  dataset  INDEX  onto  the  disc. 

G.  System  Restrictions 

Blank  common  other  than  that  defined  for  system  use  may  not  be 
used  by  the  user’s  program. 


The  following  variable  names  are  reserved  and  may  not  otherwise 
be  used  by  those  routines  which  need  system  blank  common: 


QNAREA 

QWAREA 

QFREHD 

QNLNKS 

QZSIZE 

QNZBLK 

QZHEAD 

QCOUNT 


QDSIZE 

QNSIZE 

QLUNIT 

QFBITS 

Q 

IQ 

QQ 

IQQ 


The  follwoing  are  system  subroutine  reserved  names: 


BITX 

PREV 

QFLDST 

CREATE 

PREVNL 

QGCBLK 

CREATL 

PUT AFT 

QGDBLK 

C RE ATX 

PUTBEF 

QGRBAG 

DSADMP 

PUTBOT 

QGTZWD 

DSLNTH 

PUTDRM 

QINITL 

DSPWRD 

PUTOIA 

QPTZWD 

DSTROY 

PUTOID 

QZBLOK 

DSXPND 

PUTORA 

RDRUM 

INDWRD 

PUTORD 

REMOVE 

LISPRT 

PUTTOP 

RE MO VP 

LOCKDS 

QCEASE 

RITEA 

LOCKFL 

QCREAT 

RITEF 

NEXT 

QDSRED 

RITEI 

NEXTNL 

QDSRYT 

RITEO 

NLOKDS 

QDSTRY 

UNPX 

NLOKFL 

QERROR 

WDRUM 

PACX 

QFIELD 

WIPOUT 

XMIT 

H.  Sample  Program 


This  section  contains  a  payroll  update  program  example  using  all 
of  the  system  features,  though  not  all  of  its  subroutines. 

Problem : 

1.  Read  in  the  following  employee  data. 

a.  Employee  number 

b.  Employee  name 

c.  Salary 

d.  Job  assignment  data 

2.  For  some  of  the  above  employees  the  following  update  information. 

a.  Employee  number 

b.  New  salary 
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3.  Prepare  a  list  of  employees,  highest  salary  first  with  employee 
number,  name  and  salary. 

The  following  pages  contain  a  listing  of  the  program  cards,  the 
input  data,  and  the  output. 


t-*v  A  1  /n  r  r* 


CA/\lvlt^  LiC 


COMMON  QNAREAj  QW AREA (10) ,  QFREHD ,  QNDTST,  QNLNKS  , 

1  QZSIZE,'qNZBLK,'qZHEAD,  QCOUNT(30)  ,  QDSIZE ( 10)  , 

2  QNSIZE'  QLUNIT(IO)  ,  QERLUN,  QFBITS(2,'  10), 

3  Q  C 1) 

DIMENSION  10(1) ,  00(1,1),  IQQ(1,  1) 

EQUIVALENCE  (Q (1) , IQ, QQ, IQQ) ,  (QCRSIZ,  QWAREA(l)) 

INTEGER  QNAREA,  QWAREA,  QFREHD,  QNDTST,  QNLNKS,  QZSIZE, 

1  QNZBLK,  QZHEAD,  QCOUNT,  QDSIZE,  QMODLK,  QNSIZE,  QUIN IT, 

2  QFIELD,  QERLUN,  QFBITS,  QCRSIZ 


DIMENSION  NTEMP  (2)  TEMP  (12) 

-  THE  FOLLOWING  IS  AN  EQUIVALENCE  BLOCK  FOR  USE  IN 

-  REFERRING  TO  THE  DATA  IN  THE  EMPLOYEE  INFORMATION 

-  DATASET. 

EQUIVALENCE  (Q(l),  EMPLNR) ,  (Q (2) ,NAME) ,  (Q(4) ,  SALARY), 

1  (Q (5) ,  WRKDAT) 

DIMENSION  EMPLNR(l),  NAME (1,2),  SALARY (1) ,  WRKDAT (1,3, 4) 

INTEGER  EMPLNR,  WRKDAT 


INITIALIZE  SYSTEM.  HIGH  SPEED  MEMORY  STORAGE  SIZE 
IS  5000  WORDS,  AND  DISC  SIZE  IS  50000.  NO 
MINIMUM  SIZE  OF  DATASETS. 


QNAREA  =  2 
QWAREA (1)  =  5000 
nwARFA("n  =  ^nnnn 

^  J  WWW 

QDSIZE (1)  =  0 
QLUNIT(l)  =  20 
QERLUN  =  6 
CALL  QINITL 


nr  H  n  T\1  WA  VTirrn<  pi  rr\  J  f~\\  r  1— •  1— •  IT!  n  ir»n  n  /inr'  1  rr*i->  ft 

INCALI  UN  ivirtA  iMUM  EMeLOiEE  iNUMEEK.  UKEAlE  A 

tnrvnn  mTACCT  nr  TI4*T  1  cur™  i?r»r>  r\ i-  r\nn 

uninoEi  Ur  Irlrtl  LDiium  run  oiutN/UjD  ur  uor 

WORD  ADDRESSES 
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READ  1,  NREMPL 
1  FORMAT (I 10) 

CALL  CREATL  (NREMPL,  INDDSP) 

-  READ  EMPLOYEE  DATA.  (ONE  EMPLOYEE  AT  A  TIME) 

10  READ  2,  JFLAG,  NEMPL,  (NTEMP(I) , 1=1 ,2) ,  SALRY,  (TEMP(I) ,1=1 ,12) 
2  FORMAT  (A6 ,  14,  2X,  2A10,  2X,  F10.2,  2X,  1212) 

IF  (JFLAG  .EQ.  6HENDDAT)  GO  TO  20 


CREATE  DATASET  OF 


i  A  wnonq  am  q'rnBF  rsiTi 

ivj  ruiu  JiuixL  Urt  1  rt 


CALL  CREATE  (16,  INDEX) 

EMPLNR  (INDEX)  =  NEMPL 

CALL  XMIT  (2,  NTEMP,  NAME (INDEX, 1) ) 

SALARY (INDEX)  =  SALARY 

CALL  XMIT(12,  TEMP,  WRKDAT( INDEX,  1,1)) 


-  OBTAIN  DSP  WORD  OF  DATASET  AND  STORE  IN  INDDSP 

-  DATASET 

CALL  DSPWRD (INDEX,  I QQ( INDDSP, NEMPL) ) 

GO  TO  10 


READ  IN  SALARY  UPDATE  INFORMATION 


20  READ  3,  JFLAG,  NEMPL,  SALRY 
3  FORMAT (A6 ,  14,  2X,  F10.2) 

IF (JFLAG  .EQ.  6HENDDAT)  GO  TO  30 

-  FIND  DATASET  ADDRESS  USING  DSP  WORD 

CALL  INDWRD(IQQ(INDDSP, NEMPL) ,  INDEX) 

SALARY  (INDEX)  =  SALRY 
GO  TO  20 


PREPARE  LIST  OF  DATASETS  ORDERED  HIGHEST  SALARY 
FIRST  FOR  OUTPUT  PURPOSES.  ZERO  OUT  LIST  HEADER. 


C 

C 


30  LSTSAL  =  0 

DO  40  J  =  1, NREMPL 
I DSP  =  IQQ(INDDSP,  J) 
IF(IDSP  .EQ.  0)  GO  TO  40 
CALL  INDWRD  (I DSP,  INDEX) 


ORDER  ON  4TH  WORD,  REAL  DATA,  IN  DESCENDING  ORDER 


CALL  PUTORD  (LSTSAL,  INuEX,  4) 
40  CONTINUE 
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n  n  o  non n 


C 


PRINT  OUT  LIST,  RELEASE  ALL  STORAGE  USED 
IS  NOT  NECESSARY  IN  THIS  EXAMPLE  BUT  IS 
ILLUSTRATION) 


f  Tl  TT  P 


^  mio 
nnxic  urvD 


UUHL.  1  V->  1\ 


A 


50 


5 


n  n  t  urp 


r  KliN  l 


A 


nnDM AT^ *1  PMDT  KID  XT  AMP  CAIADV*//1 

1  KJ 1 VI'  LTV  1  ^  ±  1_»  •  O  l  \l-i/ Vl\  i  /  j  J 

LINK  =  LSTSAL 

CALL  NEXTNL  (LINK.  INDEX) 

IF (INDEX  .EQ.  0)  GO  TO  60 

PRINT  5,  EMPLNR( INDEX) ,  (NAME (INDEX, J) , 

FORMAT (115,  2X,  2A10,  F10.2) 

CALL  REMOVE  (LSTSAL,  LINK,  INDEX) 
lall  1 RUY  (.lNDcXJ 


J=l,2), 


SALARY (INDEX) 


RELEASE  STORAGE  USED  BY  INDDSP  DATASET. 


60  CALL  DSTROY (INDDSP) 
C 

CALL  EXIT 
END 


The  following  is  a  list  of  the  input  cards  to  the  sample  program. 


75  NUMBER  OF  TOTAL  COMPANY  EMPLOYEES 


ENDDAT 
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AARON,  A. A 

410.05 

1  a 
u 

BEACH,  REDONDO 

415.00 

48 

CREEK,  S.  ANTONIO 

623.20 

8 

HEART,  B. 

438.35 

39 

KILOWATT,  R. 

766.05 

3 

MAYER,  M.G. 

912.15 

24 

PINKHAM,  L 

1170.32 

16 

RASPUTIN,  I 

806.50 

58 

SMITH 

608.50 

12 

TRUEHEART ,  T . 

1216.33 

65 

VAN  PELT,’ LUCY 

701. 16 

47 

ZWICK,  Z. 

607. 11 

12 

1350.05 

16 

815.50 

3 

835.10 

8 

450.25 

28 

416. 10 

ENDDAT 


19 


nirrDirr  CDflu  CAunt  c  ddocRAM 
v-/u  a  r  u  1  i  i\Uri  i-< i_  f  i\vJul\m  i 


EMPL.  NR.  NAME  SALARY 


12 

TRUEHEART,  T. 

1350.05 

24 

PINKHAM,  L. 

1170.32 

3 

MAYER,  M.G. 

835.10 

16 

RASPUTIN,  I. 

815.50 

39 

KILOWATT,  R. 

766. 05 

65 

VAN  PELT,  LUCY 

/ui. 16 

48 

rDCCY  C  AMTYYMTn 

,  O.  rxk'i  JL\J 

623.20 

58 

SMITH 

608.50 

47 

ZWICK,  Z. 

607.11 

8 

HEART*  B. 

450.25 

28 

BEACH,  REDONDO 

416. 10 

17 

AARON,  A. A. 

410.05 

IV. 


SYSTEM  IMPLEMENTATION 


This  section  of  the  paper  contains  information  necessary  for  the 
user  to  program  a  dynamic  storage  job. 

A.  General  Purpose  Utility  Subroutines 

The  routines  described  in  this  section  are  called  by  the  system, 
however,  they  are  also  stand  alone  routines  whose  versatility  may  be 
capitalized  upon  by  the  user  for  debugging  and  or  other  purposes. 

1.  Subroutines  BITX  and  UNPX 
BITX  (XKERN,  II,  JJ,  WORDS) 

BITX  takes  bits  II  through  JJ  of  WORDS  and  stores  them  into  XKERN 
filling  the  rest  of  XKERN  (if  any)  with  zeros.  Bits  are  numbered  with 
the  right  end  of  the  word  being  bit  1  and  the  left  end  bit  60.  JJ  must 
not  be  greater  than  11+59  (i.e.  not  more  than  one  word  wide).  Bits  may 
be  taken  from  at  most  two  consecutive  words.  For  example: 


r AT  I  UTTY  fYUCE 

uauu  u  ±  i  /\ 


181, 


un 

"J 


would  cause  bits  2  through  60  of  word  W(3)  and  bit  1  of  W(4)  to  be  placed 
into  word  XuSE . 


UNPX  is  an  entry  in  subroutine  BITX  and  functions  exactly 


do* 


2.  Subroutine  PACX 


PACX  (XKERN,  II,  JJ,  WORDS) 

PACX  takes  JJ-II+I  bits  from  the  right  end  of  XKERN  and  packs  them 
into  bits  II  through  JJ  of  WORDS,  leaving  the  rest  of  WORDS  undisturbed. 
JJ  must  not  be  greater  than  11+59  (i.e.  not  more  than  1  word  wide). 

PACX  undoes  what  BITX  does. 

3.  Subroutine  RDRUM 

RDRUM(LUN,  TOWORD,  NWORDS,  IADRES) 

RDRUM  reads  NWORDS  (1  word  records)  from  the  disc  beginning  with 
disc  address  IADRES  into  core  location  beginning  with  TOWORD.  LUN  is 
not  used. 

4.  Subroutines  RITEF,  RITEI,  RITEA,  AND  RITEO 
RITEF  (IALPHA,  DATA,  NUMBER) 

RITEF  prints  one  word  IALPHA  of  BCD  identification  and  DATA (I) 
words  of  information  where  I  runs  from  1  to  NUMBER  using  a  G20.7  format. 

RITEI  functions  as  RITEF  except  that  DATA  is  printed  with  an  110 
format. 

RITEA  functions  as  RITEF  except  that  DATA  is  printed  with  an  A10 
format. 

RITEO  functions  as  RITEF  that  DATA  is  printed  with  an  025  format. 

5.  Subroutine  WDRUM 

WDRUM(LUN,  FRMWRD,  NWORDS,  IADRES) 

WDRUM  writes  NWORDS  (1  word  records)  onto  the  disc  with  disc 
address  beginning  at  IADRES  starting  from  core  location  FRMWRD.  LUN 
is  not  used. 

6.  Subroutine  XMIT 
XMIT  (N, A, B) 

XMIT  is  a  core  to  core  transmission  subroutine.  If  N  is  positive, 
N  words  are  transferred  from  array  A  to  array  B.  If  N  is  negative, 
the  variable  A(l)  is  placed  in  cells  B(l),  B(2),  ...  B(N). 
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B .  System  Blank  Common 

The  following  variables  are  in  the  system  blank  common  area: 


QNAREA* 
QWAREA(IO) * 
QFREHD** 
QNDTST 

QNLNKS 

QZSIZE 

QZHEAD 

QCOUNT(30) 


The  number  of  dataset  storage  areas. 

Word  size  of  each  dataset  storage  area. 

Header  variable  for  the  free  block  list. 

The  count  of  the  current  number  of  datasets  in 

i  avn  r  +  nnr»A 

J-ll  UAIO  « 

The  count  of  the  current  number  of  list  links 
in  existence. 

The  number  of  words  in  a  system  block. 

The  header  variable  for  the  sytem  block. 

Counts  the  number  of  times  system  subroutines 
have  been  called: 


AmilMT  n  'N  cnrATr 

vJLUUN  i  ^  i  )  —  LKcA  1  c 
r?i_e.rDPATY 

J  uivLA  1  A. 

(3) - -DSTROY 


(4)  --QGCBLK 

(5)  — QGDBLK 

(6)  --QGRBAG 

(7)  --PUTBOT 

(8)  --PUTTOP 

(9)  --NEXT 

(10)  --REMOVE 

(11) — NEXTNL 
(121--PREV 

(13) — PREVNL 

(14) --PUTAFT 

(15)  --PUTBEF 


( 16)  --L0CKDS 

(17) --NL0KDS 

f  i  o~\  t  CiCVUl 
(iO  J  --  Nr  Li 

(19) — NLOKFL 

(20)  --CREATL 

(21) --QDSRED  (COUNT  OF  DISC  READS) 

(22) --QDSRYT  (COUNT  OF  DISC  WRITES) 

(23) --REMOVP 

(24)  -“PUTORD 

(25) — PUTOID 
(zo  j  — eu 10RA 

(27) --PUTOIA 

(28)  --NOT  USED 

(29)  --NOT  USED 

(30) --NOT  USED 


ODSIZE (10) * 

QNSIZE** 

QLUNIT(IO) * 

QERLUN 

QFBITS(2 , 10) ** 

Q(i) 
inrn 

00(1.1) 

IQQ(1,  l) 

All  variables  in  blank  common  except  Q  and  QQ  are  integer  variables. 

*Variables  which  must  be  set  by  the  user. 

**Variables  which  are  set  by  subroutine  QINITL. 

C.  System  Subroutines 


Minimum  dataset  size. 

Number  of  non-zero  elements  in  QDSIZE  array. 
Logical  unit  numbers  of  dataset  storage  areas. 
Not  used. 

Bit  numbers  defining  extent  of  data  fields  used 
in  packed  data  words. 

First  location  of  dataset  storage. 

Equivalenced  to  Q.  Integer  reference. 
Equivalenced  to  Q. 

Equivalenced  to  Q. 


All  system  subroutines  not 
system  variables  in  blank  common 
characters  in  length. 


accessible  to  the  programmer  and 

Knrr-i  m  i.r  •?  +■  Vi  1  o+-  +  H  on  J  a 

uwgi.ii  nj.  V.I1  L.11^/  i  &  t  tci  y  cxiiU  ax  c 


all 


£ 


Subroutines  QDSRED  and  QDSRYT  which  read  and  write  the  disc  can 
easily  be  modified  to  use  other  storage  devices  (such  as  a  drum) 
should  they  become  available. 
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APPENDIX  I 

LIST  OF  SYSTEM  SUBROUTINES 


The  following  system  subroutines  are  meant  to  be  accessed  by  the 
user.  The  following  conventions  are  used  to  name  variables: 


LIST 

List  header  variable 

LINK 

Link  word 

INDEX 

Dataset  index 

LOCKNR  — 

Lock  number 

INDEX  2  -- 

Dataset  index 

NWORDS  -- 

Number  of  words 

IDSPWD  -- 

DSP  word  address 

NWORD 

Word  number 

1/  TXO  'T'  \r 

MJD1KI 

n  rt  ♦  rt  ^  J  /\  /•  4-  1 

V<%  LdbC  C  UC5UU/CU  JLJ.( 

1.  Initialization 


CALL  QINITL 


2.  Dataset  assignment  and  release 

CALL  CREATE  (NWORDS,  INDEX) 
CALL  CREATL  (NWORDS,  INDEX) 
CALL  CREATX  (NWORDS,  INDEX) 
CALL  DSTROY  (INDEX) 


3.  List  manipulations 


CALL  PUTTGP  (LIST,  INDEX) 

CALL  PUTBOT  (LIST,  INDEX) 

CALL  PUTORA  (LIST,  INDEX,  NWORD) 

CALL  PUTOIA  (LIST,  INDEX,  NWORD) 

CALL  PUTORD  (LIST,  INDEX,  NWORD) 

CALL  PUTOID  (LIST,  INDEX,  NWORD) 

CALL  PUTAFT  (LIST,  LINK,  INDEX,  INDEX  2) 
CALL  PUTBEF  (LIST,  LINK,  INDEX,  INDEX  2) 
CALL  NEXT  (LINK,  INDEX) 

CALL  NEXTNL  (LINK,  INDEX) 

CALL  PREV  (LINK.  INDEX) 

CALL  PREVNL  (LINK,  INDEX) 

CALL  REMOVE  (LIST,  LINK,  INDEX) 

CALL  REMOVP  (LIST,  LINK,  INDEX) 

CALL  WIPOUT  (LIST,  KDSTRY) 


CALL  DSLNTH  (INDEX,  NWORDS) 
CALL  DSXPND  (INDEX,  NWORDS) 
CALL  PUTDRM  (INDEX) 
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5.  Lock  number  manipulations 


CALL  LOCKDS  (INDEX,  LOCKNR) 
CALL  NLOKDS  (INDEX) 

CALL  LOCKFL  (LIST,  LOCKNR) 

r'  a  r  r  vrr  r\i/rr  r-w  mm  r 

V^AJLiJLi  INLUNrL,  (Lidl,  LUL.KJNK  J 


6.  DSP  Wot^H  f n / ■Fthtd  HfltsQAt  Tnrl  OY 

-  - -  "  . .  . . .  '  L11UV.A 


k  VIII  L/U  V-  Lt  ij  V  U 


CALL  DSPWRD  (INDEX,  IDSPWD) 

CALL  INDWRD  (IDSPWD,  INDEX) 

The  following  system  subroutines  may  be  used  by  the  user. 


n  T  'T'X/ 

Dll  A 

Unpacks  a  data  word 

UNPX 

UlipS-CKS  d  Ud  Id  WUX  U 

PACY 

PorVc  a  rla  +  a  wnrH 

i  i*  v  i\  v  vt  vxu  w  u  nv  j.  u 

RDRUM 

Reads  the  disc 

RITEF 

Prints  labelled  list 

RITEA 

Prints  labelled  list 

RITEI 

Prints  labelled  list 

RITEO 

Prints  labelled  list 

WDRiJM 

Writes  the  disc 

XMIT 

Transmits  core  to  cere 

The  following  system  routines  are  not  meant  to  be  used  by  the  user 
(except  QINITL)  but  act  as  support  programs  to  the  system. 


QCEASE 

QCREAT 

QDSRED 

nncDVT 

.Jl\  l  l 

QERROR 

OFIELD 

QFLDST 

QGCBLK 

rirriDt  v 
yuuoijR 

OGR BAG 
QGTZWD 
QINITL 
QPTZWD 
QZBLOK 


Writes  error  message  and  terminates 
Locates  a  memory  block  of  proper  size  for  a  dataset 
create  operation 

Performs  ail  reading  of  datasets  from  disc 
Performs  all  writing  of  datasets  to  disc 
Writes  error  ir.e s S3. ^ e  &nd  returns 


A  function  which  calls  BITX  to  unpack  data  values 
from  specified  word  fields. 

Calls  PACX  to  pack  data  values  into  specified  word 


fields . 

Attempts  to  find  a  memory  block  of  specified  size  by 

writing  unlocked  datasets  to  the  disc 

Attempts  to  locate  an  available  core  on  the  disc  Oi  a 


Performs  partake  collection 
Obtains  next  available  system  word 
System  initialization  routine 

Returns  system  word  to  system  availability  list 
Creates  and  initializes  system  availability  list 
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APPENDIX  II 

SYSTEM  ERROR  MESSAGES  AND  DEBUGGING  AIDS 


A.  Error  Messages 

The  following  error  messages  are  considered  non-fatal.  Execution 
continues  but  an  unusual  event  has  occurred. 


ROUTINE 


MESSAGE 


DSTROY 

Dt  ITACT 
i  u  l  rvi  1 


QDSRED 


/-\r\  nr»  \  rrr> 

l^USKI  1 

QGCBLK 


QGRBAG 

REMOVE 


ATTEMPT’  TO  DESTROY  A  WELL-LOCKED  DS.  An  attempt  to 
destroy  a  dataset  with  lock  number  >5. 

CANNOT  LOCATE  REQUESTED  LIST  ELEMENT.  A  call  to 
PUTAFT  or  PUTBEF  with  LINK=0  and  the  program  cannot 
locate  a  link  of  the  list  which  corresponds  to  dataset 
INDEX. 

READ  ATTEMPT  OUT  OF  LIMITS.  An  attempt  to  read  from 
a  dataset  storage  address  greater  than  exists. 

Possible  system  error. 

r.m  t rT' r'  A'm’runT  rwKP  /-\T7  T  TXITTC 

tmnn  Hiicwri  uui  ur  Limlb. 


message. 

UNLOCKED  DATASET  HAS  NO  DSP  WORD.  In  the  process  of 
moving  unlocked  datasets  to  the  disc  a  dataset  with 
no  DSP  word  has  been  encountered.  This  implies  it 
belongs  to  no  lists  and  therefore  if  moved  cannot  be 
referenced  again. 

UNLOCKED  DATASET  HAS  NO  DSP  WORD.  See  above. 

CANNOT  LOCATE  REQUESTED  LIST  ELEMENT.  A  call  to 
REMOVE  (or  REMOVP)  with  LINK=0  has  occurred  and  the 
program  is  unable  to  locate  a  link  of  the  list  corres 
ponding  to  dataset  INDEX. 


The  following  error  messages  are  considered  fatal.  Execution  is 
terminated  after  the  message  is  printed. 


QGCBLK 

QGCBLK 


ATnDT  V 


QGCBLK  CALLED  WITH  QNAREA=1.  Core  storage  memory 
has  been  filled  and  no  disc  storage  has  been  provided 
for  overflow. 

CANNOT  GENERATE  ENOUGH  CORE  SPACE.  A  block  of  size 
NWORDS  cannot  be  fit  into  core  storage  after  writing 
onto  the  disc.  Probably  too  many  locked  datasets  exist. 
NO  DISC  BLOCK  AVAILABLE  OF  PROPER  SIZE.  No  disc 
Viini'k  larog  epouph  to  hold  the  datasets  to  be  moved 
exists . 
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B.  Debugging  Aids 


The  two  routines  discussed  below  provide  debugging  capability  to  the 
system  user. 

1 .  Subroutine  DSADMP. 

DSADMP  (NWQRDS) 

DSADMP  causes  the  first  NWORDS  (0  < 'NWORDS  10)  of  each  dataset 
to  be  printed  (in  octal)  as  well  as  the  contents  of  all  blank  common 
cells.  The  dataset  index,  the  lock  number,  and  the  total  number  of 
words  in  the  dataset  are  also  printed.  If  NW0RDS=0  only  the  blank 
common  cells  are  printed. 

2 .  Subroutine  LISPRT. 

LISPRT  (LIST,  N) 

LISPRT  causes  the  index,  number  of  words,  lock  numbers  and  the  first 
four  words  to  be  printed  for  all  datasets  in  the  file  specified  by  LIST 
(list  header  variable).  The  value  of  N  specifies  the  list  searching 
routine  to  be  used: 

N  =  1  NEXT 

2  PREV 

3  NEXTNL 

4  PREVNL 
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GLOSSARY  OF  TERMS 


Dataset 

DSP  Word 


Free  Block 
Free  List 

T  '  _  1 .  til _ 1 

l,xiik  wora 


List 

List  Header 
Variable 

Lock  Number 

Zeroth  Word 


A  group  of  contiguous  computer  storage  cells 
containing  related  information  or  fields  and 
treated  as  a  unit.  Also  the  data  stored  in 
the  cells. 


A  word  created  by  the  system  for  each  dataset 
created  to  be  part  of  a  list.  This  word  contains 
the  current  address  of  the  dataset  and  the  number 
of  words  in  the  dataset.  DSP  words  are  stored  in 


system  created  words  and  updated  by  the  system  as 

nJlta  Cofc  OTP  mnvPrl  WI  tV>i  avo  rrA  nn/1  ^  r  a 

v*»*  w  j  tix  v.  mw  v  vu  ni  lilill  U  Cl  J  111  U1IC  UiOC  , 


A  block  of  unused  storage  available  for  use. 


The  list  of  free  blocks. 


A  word  created  by  the  system  for  each  list  member 
containing  the  address  of  the  next  link  word  of 

t- Vio  1  i  cf  fVia  n-rpui  Ai  i  c  1  i  r»  \r  t.t/'x  a  P  1  -i  c  4* 

LHC  i  x  j  x  j  eni  px  o  »  i  Uu  j  x  jl i ii\  nui  u  l/x  tin  ixot  }  dim 

the  address  of  the  DSP  word  for  the  dataset.  Link 

words  are  stored  in  system  created  blocks  and 
automatically  updated. 


A  group  of  logically  associated  datasets  connected 
by  link  words.  Successive  datasets  in  a  list  do 
not  necessarily  occupy  adjacent  memory  blocks. 


A  word  defined  by  the  user  containing  the  addresses 
of  the  first  and  last  link  words  in  the  list.  The 
variable  name  provides  a  means  by  which  the  user  can 
refer  to  the  list. 


A  number  ranging  from  0  to  7  carried  with  each 
dataset  to  allow  or  inhibit  movement  within  storage 

-U  ~  ~*rr~4- 

-lie  sptciu. 


A  word  allocated  by  the  system  for  each  dataset  in 
its  first  memory  location.  It  contains  the  address 
of  the  DSP  word  of  the  dataset,  the  number  of  words 
in  the  dataset,  and  the  lock  number  of  the  dataset. 
The  user  should  not  attempt  to  access  this  word. 
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